home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2004 E…tra 100 Bedste Programmer / K-CD_2004_Ekstra_100_Gratis_Programmer.iso / Windows / X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Options 12.xpl < prev    next >
Encoding:
XSetup plugin  |  2004-03-02  |  2.3 KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH 1"="Internet\Internet Explorer\URL Handling"
  5. "UIPATH 2"="Virtual Paranoia\Program Hijacking"
  6. "NAME"="Internet Explorer Home Page Changes"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.04"
  9. "TEXT 1"="Enable changing home page"
  10. "DESCRIPTION 1"="Some websites try to "hijack" your Internet Explorer by changing your default home page and prevent you from changing it back again."
  11. "DESCRIPTION 2"="When this happens, and you try to use Internet Options -> Home page, you will either not be able to change the home page (since the controls are locked) or you are able to change the home page but the changes do not stick."
  12. "DESCRIPTION 3"="This plug-in scans your registry for known entries that might prevent you from changing the home page of Internet Explorer. If it finds at least one entry, it will inform you about this."
  13. "DESCRIPTION 4"="Simply click on the button to remove these entries so you should be able to change your home page again."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=""
  18.  
  19. Dim aryLoc(3)
  20. aryLoc(1)="\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage" 'DW: 1 = no set
  21. aryLoc(2)="\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoSetHomePage" 'dito
  22. aryLoc(3)="\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetHomePage" 'dito
  23. cCount=3
  24.  
  25. cHKCU="HKCU"
  26. cHKLM="HKLM"
  27.  
  28.  
  29. SUB Plugin_Initialize  
  30.  bStatus=true
  31.  
  32.  for l=1 to cCount
  33.      sReg=cHKCU & aryLoc(l)
  34.      if RegReadValue(sReg)=1 then bStatus=false
  35.  next
  36.  
  37.  for l=1 to cCount 
  38.      sReg=cHKLM & aryLoc(l)
  39.      if RegReadValue(sReg)=1 then bStatus=false
  40.  next
  41.  
  42.  if bStatus=false then Call MsgWarning("At least ony registry entry has been found that might prevent you from changing the home page. Applying this plug-in is recommended.")
  43. END SUB
  44.  
  45. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  for l=1 to cCount 
  47.      sReg=cHKCU & aryLoc(l)
  48.      if RegValueExists(sReg) then Call RegDeleteValue(sReg)
  49.  next
  50.  
  51.  for l=1 to cCount
  52.      sReg=cHKLM & aryLoc(l)
  53.      if RegValueExists(sReg) then Call RegDeleteValue(sReg)
  54.  next
  55.  
  56.  Call MsgInformation("Done!")
  57. END SUB
  58.  
  59. SUB Plugin_Terminate
  60. END SUB
  61.  
  62.